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DARA ARAARARRRRRAARRSARALALELASLSSE SSSR EASES ESE SESE EEE RRR E EEE SEE EE EEE REE eae 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF “yy NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


-* * 
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*® * 
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** ® 
** 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onRPORAT Tou. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS , 


IBILIT 
SOFTWARE ON EQUIPMENT WHICH 


FOR THE USE OR RELIABILITY OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL. 


: -RARRRAAAAARAAALASARASASALARSS EARS ARRA RASA SASESSR SERRE RRR RRR RES ASE SERS S ASSES SO 
++ 

; FACILITY: General Utility Library 

; ABSTRACT: 

: return the relative position of the matching character or zero. 

: ENVIRONMENT: User Mode, AST Reentrant 


; AUTHOR: Donald G. Petersen, CREATION DATE: 03-Jan-78 
: MODIFIED BY: 

; D6P. 03-Jan-78 VERSION 00 
: DGP SOb-Jan-78 - Relative position not found prose 

: Update,.v person number and copyright, merle, 8 162 -NOV-78 

: Add to the PSECT directive. 

3 Enhance to ond nize additional classes ey string descriptors 
3 by invoking LIBSAMNALYZE_SDESC_R5 to exeregt nen ese, and 
: address of Ist data byte of string. 

; 1-004 - Add special-case code to process string descriptors. th that 

: “read a\, fixed string descriptors. RKR T-1 

3; 1-005 = Redire sb's from LIB ANALYTES _SDESC_R3 to 

: LTSSANALY E_SDESC_R2. Reorganize register usage so that 


R is_ no longer needed and can be dropped from entry mask. 
RKR is-nov—1 81 
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DECLARATIONS ~$epr13be $Tioasco FetaNTe emecimccceomaR;1 | 2ae 3, 


.SBTTL DECLARATIONS 
60 ; INCLUDE FILES: NONE 


3; EXTERNAL ae ? 
-OSABL ; Only explicit externals 
~EXTRN CIBSANALYZE _SDESC_R2 ; Extract length and address of 
: Ist byte of data 


=r 
a om 


: MACROS: 
SDSCDEF : fields in a descriptor 


: EQUATED SYMBOLS: NONE 


e 
T 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
. : OWN STORAGE: NONE 
0 
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> PSECT DECLARATIONS: 


0000 -PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 
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1-008 LIBSLOCC = locate a character 66-SEP-1984 $0: 740 CLIBRTL.SRCJLIBLOCC.MAR;1 _ d 
88 § e -SBTTL LIBSLOCC = locate a character | : 
00 8 ; FUNCTIONAL DESCRIPTION: | : 
09 90 ; The character is compared with successive bytes of the strin | : 
8 91 ; specified by the string descriptor until an equality is foun : 
00 6 ; or the string is exhausted. ; 
000 93 ; The relative position of the unequal byte, or zero is returned. : 
4 oe 3 If the string has a zero length then a zero is returned. : 
o008 ; CALLING SEQUENCE: | 
0 8 : index.wlu.v = LIBSLOCC (char.rt.dx, string.rt.dx) ; 
0000 99: . | 
0000 100 3 
9000 101 ; INPUT PARAMETERS: | : 
90000004 000 108° CHAR = 4 Adr of ch d | 
5 ; Adr of character desc 
00000008 44 I STRING = 8 ; Adr of string desc 
0000 18 ; IMPLICIT INPUTS: 
0000 107 ; | 
0000 108 ; NONE 
0000 109; 
0000 110 ; OUTPUT PARAMETERS: 
0000 111; 
0000 M6 ; NONE 
0000 113; 
0000 114 ; IMPLICIT OUTPUTS: 
0000 115; 
0000 116; NONE 
0000 117; 
0000 118 ; FUNCTION VALUE: 
0000 119; 
0000 139 3 index.wlu.v 
0000 121; 
0000 1 ¢ 3; SIDE EFFECTS: 
0000 123; 
0000 124 ; NONE 
0000 125; 
0000 126 ;-- 
0000 127 
001¢ 0000 128 -ENTRY LIBSLOCC , “M<R2, R3, R4> : Entry point 
50 04 AC +4 B88 129 MOVL CHAR(AP), R ; Address of char string descr. 
02 05 Ad 91 9006 130 CHP DSC$B_CLASS(RO), #DSCS$K_CLASS_D ; read Like fixed ? | 
wul ; no | 
53 04 A0 00 O000C 1 ¢ MOVL BSCSA_POINTER(RO) R3 ; address of char 
6h big : ? BRB $ : join common flow 
00009900" ¢e 16 O18 135 1$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: Length->R1, addr->R2 
5 2 00 1 1 § MOVL R2, R35 ; save addr, length is assumed 
18 ! ; to be one 
50 08 AC 00 1B 5 2$: MOVL STRING(AP), RO ; Address of string descriptor 
02 03 a0 91 1F 140 CMPB Sc B_CLASS(RO), #DSCSK_CLASS_D ; read Like fixed ? 
09 1A $2 141 BGTRU 3; no 
54 60 3C 142 MOVZWL DSCSW_LENGTH(RO), R4 ; length of string 
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4-608 L1escoce - locate a character mitt 7 90: bB:c0 LIBRTL.SRCJLIBLOCC.MAR; 1 . (3) | _ 
52. 04 a0 00 8 143 MOVL DSCSA_POINTER(RO), R2; address of string 
09 = : Pt: BRB 4 3; join common flow 
| 
veg > dh 16 E 108 3$: JSB G*LIBSANALYZE_SDESC_R2 ; Extract: lLength=>R1, addr->R2 
4 . = 3 17 MOVZWL R1, R4 ; save length of string 
62 54 63 3A 80 7 129 4$: LOCC (R3), R4, (R2) ; locate a character 
0038 150 ; State of regs after a LOCC instr. 
ites 151 ; RO = If found, number of bytes 
038 12 3 remaining in string (including | 
Bate 137 : secetes one), 
3 else 0. 
ists 155 ; R1 = if found, address of byte found, 
0038 136 3 else address of 1 byte beyond 
+ ee. 3 string. 
gg 1 ; 
$0 B 160 BEQL 10$ : branch if none found 
003D 161 SUBW3 RO, R4, RO ; get relative position 
0041 1¢ INCL RO 3 One origin 
0043 163 10$: RET 
0044 164 END 


Symbol table :0 LIBRTL.S {LIB LOCC.MAR;1 


CHAR 
DSCSA_POINTER 
DS LASS 
DSCSK-CLASS _D 


DSC$w" : : | 


LENGTA 
LIBSARAL VZe SDESC_R2 90900000 


LIBS 00000 RG* 
STRIN here = $809 $008 
teeeeee ee eee cece + 
! ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
00000000 <( 00 ¢ Q.) NOPIC USR CON ABS 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE RD WRT NOVEC BYTE 


LCL 
00000000 <¢ & 01 ¢ 1.) NOPIC USR CON ABS LCL 
68. LCL SHR EXE RD NOWRT NOVEC LONG 


sass 
_LIBSCODE 00000044 ¢ 02 ¢ 2.) PIC USR CON REL 


wenn non mma we woe wre wm aman $ 


Phase Page faults CPU Time Elapsed Time 


Initialization 32 00:00:00.04 00:00:01.89 
Command processing 112 00:00:00.30 00:00:01.91 
Pass 1 132 00:00:01.07 00:00:05.07 
Symbol table sort 0 00:00:00.11 00:00:00.43 
Pass 2 44 00:00:00.31 00:00:02.70 
Symbol table output ¢ 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.02 00:00:00.02 
Cross-reference output 9 00:00:00.00 00:00:00.00 
Assembler run totals 32 00:00:01.86 00:00:12.04 


The working set Limit was 900 pages. 

8086 bytes (16 pages) of virtual memory were used to buffer the intermediate code 

There were 10 pages of symbol table space allocated to hold 135 non-local and 5 Local symbols. 
164 source Lines were read in Pass 1, orodue ing 3 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


Ser Oe ee wee ea ee ee meee mee + 


Macro library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB:2 (itt A; 
190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL,, TRACEBACK) /LIS=LIS$:LIBLOCC/OBJ=OBJ$:LIBLOCC MSRC$:LIBLOCC/UPDATE=(ENH$:L IBLOCC) 
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